(grep-read-files): Use car of grep-files-history or grep-files-aliases

as default if nothing else applies.

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 96f449c2b05fe351bf0773667c8dab5aaa31f2f4..1c29bfe9cc87e3eff604c1480a7c2baa52b74dab 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -620,7 +620,9 @@ substitution string.  Note dynamic scoping of variables.")
                      (cdr alias)))
               (and fn
                    (let ((ext (file-name-extension fn)))
-                     (and ext (concat "*." ext))))))
+                     (and ext (concat "*." ext))))
+              (car grep-files-history)
+              (car (car grep-files-aliases))))
         (files (read-string
                 (concat "Search for \"" regexp
                         "\" in files"